home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
batchut
/
ebl405.zip
/
BATDOC.BAT
< prev
next >
Wrap
DOS Batch File
|
1990-03-05
|
19KB
|
506 lines
bat * Loading HELP and DOCUMENTATION ..... (Non-IBM systems, read NOTE below)
* Written 10/5/83 through 01/15/90
* (c) Copyright 1983 to 1990 by Seaware Corp. all rights reserved.
* This batch file REQUIRES EBL PLUS for proper execution!
**** NOTE! NOTE! NOTE! NOTE! ****
RAM |* <-----Change 'RAM' to 'BIOS' if PC isn't 100% IBM Compatible!
if %G = .goto. then %G = | goto -%F
else %F =
else goto -line0
-header * Routine prints general purpose header for help text
stack.purge |* remove any pre-typed keystrokes.
%n = %i $ 1 ( %i # - 2 ) & . & ( %i $ ( %i # - 1 ) 2 ) |* extract section # from page #
color( white on black )
cls
color( white on cyan )
window( 1, 1, 79, 3, Combo)
begtype
\%H Page \%n
\07 Press: PGDN for next page, PGUP for prev page, HOME for main menu.
end
color( white on black)
colorchar ~ as color(yellow on black)
window( 1, 5, 79, 25, Combo)
return
-scroll * Routine accepts key for scrolling help text
%e = 0
inkey %k
if %k = KEY("Ctrl-C") then goto -opt0
if %k = KEY(Esc) %i = 0 | goto -line0
if %k = KEY(Home) %i = 0 | goto -line0
if %k = KEY(Pgup) %i = %i - 1 | cls | %F = line%i | goto -%F
if %k = KEY(Pgdn) %i = %i + 1 | cls | %F = line%i | goto -%F
goto -scroll |* ignore any other key.
-line1405
-line099
-line0
%e = 0
color white on black
cls begtype
\1F╔════════════════ BATDOC ═══════════════════╗\07 \17┌─────────────────────────┐\07
\1F║ Menu driven HELP and DOCUMENTATION. ║\07 \17│ User supported software │\07
\1F╙───────────────────────────────────────────╜\07 \17│ by │\07
\17│ │\07
\4fGENERAL:\07 \17│ Seaware Corp. │\07
\0e 1. Introduction and how to use this Help. \07 \17│ P.O. Box 1656 │\07
\0e 2. The user supported concept & ASP. \07 \17│ Delray Beach, FL 33444 │\07
\0e 3. BAT-BBS information. On-line users forum.\07 \17│ 407/392-2046 │\07
\0e 4. What EBL is... an introduction! \07 \17│ │\07
\0e 5. EBL PLUS: The inside story! \07 \17│ Order your registered │\07
\17│ copy for $79 + $3 s/h │\07
\4fThe EBL PLUS Language\07 \17│ from us directly or our │\07
\0e 6. Showing things on the display. \07 \17│ order line 800/634-8188 │\07
\0e 7. Reading data from users. \07 \17│ (MC/Visa welcome) │\07
\0e 8. Controlling program flow \07 \17│ │\07
\0e 9. Using the keyboard stack. \07 \17│ Please copy and share │\07
\0e 10. Sensing program's results. \07 \17│ BAT.COM, BATDOC.BAT, │\07
\0e 11. Assignment statements. \07 \17│ and BATDEMO.BAT for │\07
\0e 12. Debugging aids. \07 \17│ non-commercial uses │\07
\0e 13. Extended functions. \07 \17│ only. │\07
\0e 14. Additional information. \07 \17└─────────────────────────┘\07
\0e X. eXit. \07
Select the starting topic and press ─┘
END
-entry0
%o =
if left(%F,3) = "opt" then field( ( ( %F $ 4 ) + 1 ) )
%A = Select( color( yellow ))
if %R > 15 then goto -entry0
if %A = Enter then %F = "opt" & %R | goto -%F
if %A = ESC then goto -opt0
if Length(%A) > 1 then beep
goto -entry0
-opt15 ********** Display final EXIT window ***********
-opt0 color yellow on black |* Setup the window contents
locate 1 23
type " 0. Exit. "
color white on blue
window( 18, 13, 48, 20)
type "Ready to leave on-line help!"
color Cyan on blue
type "Make selection & press ─┘"
type
colorchar . as color( yellow on blue)
type ". Exit . . Demo . .Return."
colorchar
%A = "" | %F = ""
** Now actually do the bouncing bar menu **
-End1 type " Exit to DOS " | If %A = Enter then exit
-Endit %A = select( color( yellow on blue), color( black on white ), Arrow)
if %A = Esc then goto -line0
goto -End%R
-End2 type " Demonstrate other features" | If %A = Enter then stack "BATDEMO" |exit
else goto -endit
-End3 type " Return to on-line help " | If %A = Enter then goto -line0
else goto -endit
-line100 *************** Begin various chapters to show ****************
-opt1 %h = INTRODUCTION | %i = 100 | call -header
begtype
This program will provide you with help information on the use of
the EXTENDED BATCH LANGUAGE PLUS. It is designed to allow for
easy access and retrieval of information that would be harder to find
by more conventional means.
The information is broken up into multiple sections. Each section
may have several pages. To access each page in order, just keep
pressing the PGDN key. At the top of your screen is the name of the
section which you are in and the page number.
~Note:~
If you wish to directly enter another section now, press the ~HOME~
key to return to the main menu, enter the proper ~section number~ and
press the ~─┘~ key.
end
goto -scroll
-line101 call -header | begtype
While in any of these sections, there are just three keys needed:
PGDN - This key will advance to the next page of any section. If
there are no more pages in the section, then it will advance
to the next section.
PGUP - This key will back up to a previous page within a section.
If there are no more previous pages within a section, it
will backup to the previous section.
HOME or ESC - Either of these keys will return directly to the
main menu. From the menu, any section can be looked at
directly by entering the section number and pressing ─┘.
end
goto -scroll
-line199 %i = 102
-line102 call -header | begtype
There are several sections where you will be given questions and answers.
If you would like to peek and see answer without specifically answering it,
you can press the space bar to reveal the answer letter by letter.
One interesting facet you should know while using this on-line help
and documentation is that you are using the EXTENDED BATCH LANGUAGE
program to display and control these menus.
Never before has a batch language been so powerful on the IBM
personal computer as to be able to provide a facility like this. In
the following pages of description, we hope that you will see, as we
did, that this program has extraordinary capability which does much
more than just expand the capability of DOS. In fact, it gives new
power to your system by providing capabilities never before possible.
end
goto -scroll
-opt2
-line103 %i = 200
-line200 %H = "The User Supported Concept & ASP" | call -header | begtype
╓─ ─╖
║ The license fee for Extended Batch Language is $79 + $3 s/h ║
║ ║
║ You are encouraged to copy and share BAT.COM, BATDOC.BAT, and ║
║ BATDEMO.BAT for non-commercial purposes only. You must not modify ║
║ any of these files or make a profit from their distribution. ║
║ ║
║ In appreciation of your support, you will be provided with many more ║
║ powerful extensions to the language (including source code), examples, ║
║ and detailed documentation. All registered users can also access the ║
║ BAT-BBS, a hot-line for assistance, tips, and updates. ║
║ ║
╙─ (c) Copyright 1982 through 1990 by Seaware Corp. ─╜
All rights reserved.
Seaware Corp. 407/392-2046
Post Office Box 1656 800/634-8188
Delray Beach, FL 33444
end
goto -scroll
-line201 call -header | begtype
When you order EBL-PLUS, you will receive:
■ A detailed users guide. This hardcopy manual has about 250 pages of
descriptions, examples, useful utilities, and
tips on this program's use.
■ The EBL-PLUS Diskette Containing the latest program version,
useful utilities, help files, and examples.
You also receive our "Executive Menu Facility"
to get started using EBL with zero effort.
■ 6 months of free support:
o BAT-BBS An on-line forum for user's ideas, tips,
programs, and assistance.
o Technical Hotline Phone us if you experience problems